List Tracker 2022

##Setup

d <- read.csv(Sys.getenv("lift_site")) %>% rename(Weight=Weight.Amount..lbs.) %>%
  mutate(Date=as.Date(mdy_hms(Timestamp)))

##Bench

bp<-d %>% filter(Exercise=="Bench Press") %>% group_by(Date) %>% 
  summarise(Average=weighted.mean(Weight,w = Reps))

fig<-d%>%
  group_by(Exercise) %>%
  do(p=plot_ly(., x = ~Date, y = ~Weight, type = "scatter", opacity = 0.5,
               mode = "markers",marker = list(color = "blue"))) 

fig$p[[1]]